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BEGIN 00100000 
@ REAL COMMONS 001uU1000 
toc Ee er eer eee Te eee Tee eT eer eer ee Tree Creer Tre ree 00102000 a hy aha ates Beal Bua te es mo 
? Sewaweeaee SCHEDUL/CANDE KEKE ERE O2/21/6Y Ket k ah 00103000 
: % 00103016 
ae COMMENT! * TITLE? B5500/65700 MARK XIV SYSTEM KELEASE OJ we. 90103100... 
$ * FILE Ips SYMBUL/SCHEOUL TAFE IC? SYMBOLZ/FILEOOO * 00103104 
* THIS MATERIAL IS PROPRIETARY TO BURKOUGHS COPRORATION * 00103102 
Oh cn aww s wo, .* ANDUIS NCT TO BE REPROCUCELs USED» GR DISCLOSED ow OG1U3I103 
; * EXCEPT Ik ACCORDANCE WITH PROGRAM LICENSE OR UPON * 00103104 
@ * WRITTEN AUTHORIZATION UF TRE PaTENT DIVISION OF * 00103105 
Tes rascal ale eu _. ..*. BURROUGHS CORPORATION» DETROIT, MICHIGAN 48232 00 we QOL O 8706 nn ce 
by * * 00103107 
@: * COPYRIGHT (C) 19715 1972 BURROUGHS CURPORATION * 00103108 
US hs be. Sater wattle RBS 20206. BASAC6S oo oe ol a ee Nt we OO OFAN OS oe oh eh ed 
iy Rib eeiwah be ee add OGRA W OAV EES OUES Meee FAG AW ene ode aaa Wad dae ae eden 00104000 
@ : SAVE ARRAY ESPDISKL£0830]3 00105000 
ee . ~6 DEFINE E.. WESP OLS: 652508. c.itequat Mle obtal rouse iedlatea eet as ee ee SOON OOOO es ote £0 eh oe ee 2 
fi sOUTNM = EL3]8 00107000 
e. ,sUSER = ELalé 00108000 
TS Aa ot se tc Be UNSER es phe harons eta iacgs need cathe alteh hey feta ot ae daatnd sed heme SON ocala ws PSI WM) OO aoe fhe at ba a ean 
- sINUSR = EC6)# 00110000 
@- ,TEMP = E(7 14 00111000 
| ee oe TIME z. ££8)2... SOOLP OOOO! on oc eae ee = os 
ef sCHARGE = E(9)# 00112100 
@ * ; 06113000 
Peano ARRAY ALOI9]3 + SOOLTEROO0r. £008 a vache aie 2) 
@* 00116000 
Ppa ELLE. IN OISK DISK SERIAL (C226@00)3 0 OA OOO 
7 FILE QUT OUTP DISK SERIAL [208600](1»10»300sSAVE 2)3 00118000 
@ * 00119000 
jy mene oenen ern: | SS TLREAMSCP GOCE DURE 2b UPR CE Qe kes i et i os ate es ote a OD BOO OU less an ten ee 
es BEGIN SItsFs SItsSle243 Di ieLOc Fs VSt=WOS3 00121000 
ee. SItaFs 14(S1tsS1+8)3 OLtSLOC Fs DStewDS; 00122000 
x END} 00124000 
@ 35) 001¢5000 
6 PRUCEDURE DISKWAITCICsAREArWDSsAUDR IS Piette a Se Re OOO oc i ie ae Nu testa eral oe ea 
ar VALUE I0sWOSsANDRS REAL TusWOS*ADDRJ ARRAY AREALO);— Qule7006 
COMMUNICATE(@8)3 00128000 
Bl a a ie eects ar a a le ue ch Rh had rh A steal elas hey en oa ae ee De OE Ol Ores, eye ea 
PROCEDURE COPY(SZ)3 VALUE SZs REAL 943 00130000 
REGIN 00131000 
ve ae SAVE FILE SCHED DESK. SERT ALE IO IO tend Od 0GroAve BD hk ios th wt ONO Oia tthe cia ang ate en needa ahs 
7 LABEL Re EOF; 00133000 
FILL SCHED WITH TEMP, USERS: 00134000 
Dees te ace DROW PTE CSCHE GH LO Ae) Re oa a el __90135000 
READ CDISK #10-AC*J)(EQFI3 00136000 
GO R3 00137000 
Lavaca OE occ3 7 as, cee en she NSS cate Soe ot esas: we antes a on 90138000 
END; 00139000 
00140000 
__ PROCEDURE SCHEDULECR@sR7oROeR5)3 _ 00141000 
VALUE R8sR7*R6eR53 00141100 
REAL RBsR7sR6-R53 00141200 
COMMUNICATE("20)3 ey 00142000 
00143000 
FORMAT OFMTC™YOUR TASK HAS NOT BEEN RUN YET")3 00144000 
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| BEGIN SI&=xXs O13=LOC DECCONVS DStsBLECS END STREAM PRUCEDURE3 
BL RELLELSLLSALLELELELYLELLELELEL UGS ALEC SEK ELEGY RLELELATLLASSVUVY 
. ECOJ8=05 DISKWAITC1sEs30sCOMMON)S %READ IN PARAMETERS. 
= FILL DISK WITH INFIDsINUSR3S 
Me EDL OUTP. WITH. BUTNMeLSERS 
TMBECCTIME DIV 100)x216000G)+CCT IME MUD 100)«36000)3 
READCDISKs10sAC%))3 
COPY CCEOFNCDISK)48) DIV 3.x 3). 
WRITE COUTPsOFMT)3 LUCKCOUTPs SAVE)DS 
% VOID 
SCHEDULECCHARGEsTMseTEMPsOUTNM)Z 
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00145100 

00146000 
~OO147000. ... eres 
00148000 : 
00149000 
oO 0005) ove iaiencter Mant ice eel ee om eee 2 
00151000 x 
00152000 
g GO Os ood re tatieas dev hatet ache eae oe aan 
00154000 
4001*00155000 
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00157000 = "e 
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